VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Class1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Public Sub A_ReadMe()
'This template is designed for use with the RAD-Copy Buddy.
'
'Purpose:   This template provides OLE Server and Client
'           error handling routines.
'
'Usage:     1) Change {{Project}} to a descriptive name
'              OTHER THAN the OLE name of your project.
'           2) Update the error handling action to
'              suit your particular app.
'           3) RAD-Copy the appropriate procedure into all
'              procedures in your project.
'
'Comments:  Server Error Handler will always return the
'           original offending procedure and error, no
'           matter how deeply nested within the Server's
'           object hierarchy.
'
'Tags:
'{{Project}}
End Sub


Public Sub ServerError()
On Error GoTo ErrorHandler:

ErrorHandler:                     '-1 Start From Bottom!
    If Left$(Err.Source, Len("Project")) = "Project" Then
        Err.Raise Err.Number, Err.Source
    Else
        Err.Raise Err.Number, "Project.ModuleName.ProcName"
    End If

    Exit Sub



End Sub

Public Sub ClientError()
On Error GoTo ErrorHandler:

ErrorHandler:                    '-1 Start From Bottom!
    MsgBox "Error: " & Error$(Err.Number) & Chr$(13) _
     & "Occurred in :" & Err.Source, 16, "Error Encountered"
        Exit Sub
End Sub
